5.5. Пример программы управления прибором с адресом 01H

program kp1;{пример управления прибором с адресом 01H}

{$I-,S-,V-}

uses crt;

var

f1, f2: text;

 a, c: string;

begin

     fillchar(c,sizeof(c),chr(0));

     writeln; write('ВВЕДИТЕ КОМАНДУ:',c); read(c);

     c:=c+chr(10);

     assign(f1,'KOP1'); assign(f2,'KOP1');

rewrite(f1);  write(f1,c);

     writeln('РЕЗУЛЬТАТ ИЗМЕРЕНИЯ:');

     reset(f2); read(f2,a);  write(a);

     close(f1); close(f2);

end.